home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / GE9506 / tryfin1.pas < prev    next >
Pascal/Delphi Source File  |  1995-05-02  |  1KB  |  60 lines
  1. unit Tryfin1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure Button2Click(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.Button1Click(Sender: TObject);
  29. var
  30.   Point1: Pointer;
  31.   X, Y: Real;
  32. begin
  33.   X := 0;
  34.   Y := 0;
  35.   GetMem(Point1, 1024);    { allocate 1K of memory }
  36.   try
  37.     X := 10 / Y;{ this generates an error }
  38.   finally
  39.     ShowMessage('Continuing');
  40.     FreeMem(Point1, 1024);{ execution resumes here, despite the error }
  41.     { optionally, do something about exception here }
  42.   end;
  43.     { or here }
  44. end;
  45.  
  46. procedure TForm1.Button2Click(Sender: TObject);
  47. var
  48.   Point1: Pointer;
  49.   X, Y: Real;
  50. begin
  51.   X := 0;
  52.   Y := 0;
  53.   GetMem(Point1, 1024);    { allocate 1K of memory }
  54.   X := 10 / Y; { this generates an error }
  55.   ShowMessage('Continuing');
  56.   FreeMem(Point1, 1024);{ execution never gets here }
  57. end;
  58.  
  59. end.
  60.